procedure TForm1.Button1Click(Sender: TObject);
var
  f: TForm;
begin
  f := Dialogs.CreateMessageDialog('HELLOWORLD', dialogs.mtInformation, dialogs.mbOKCancel);
  f.Color := clBlue;
  f.Font.Color := clLime;
  if f.ShowModal = mrOk then
    ShowMessage('OK Pressedt')
  else
    ShowMessage('Cancel pressed');
end;